home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / src / tutorials / geometer / Theorems / basicforms / nonagon.T < prev   
Encoding:
Text File  |  1994-08-02  |  655 b   |  26 lines
  1. .geometry "version 0.1";
  2. l1 = .len.f(1);
  3. ln = .len.f(9);
  4. pi2 = .len.f(6.28319);
  5. lnth = .len.divide(l1, ln);
  6. ang = .len.times(pi2, lnth);
  7. v0 = .free(0.0140845, -0.0309859, .L0, "1");
  8. v1 = .free(0.602817, -0.0507042, .L0);
  9. v2 = .v.avv(ang, v1, v0);
  10. v3 = .v.avv(ang, v2, v0);
  11. v4 = .v.avv(ang, v3, v0);
  12. v5 = .v.avv(ang, v4, v0);
  13. v6 = .v.avv(ang, v5, v0);
  14. v7 = .v.avv(ang, v6, v0);
  15. v8 = .v.avv(ang, v7, v0);
  16. v9 = .v.avv(ang, v8, v0);
  17. l2 = .l.vv(v1, v2, .L0);
  18. l3 = .l.vv(v2, v3, .L0);
  19. l4 = .l.vv(v3, v4, .L0);
  20. l5 = .l.vv(v4, v5, .L0);
  21. l6 = .l.vv(v5, v6, .L0);
  22. l7 = .l.vv(v6, v7, .L0);
  23. l8 = .l.vv(v7, v8, .L0);
  24. l9 = .l.vv(v8, v9, .L0);
  25. l10 = .l.vv(v9, v1, .L0);
  26.